﻿⍝ APLMON

)load dfns
2 ⎕NQ '.' 'APLMON' 'C:\temp\aplmon.csv'
kt 10 10
+2 ⎕NQ '.' 'APLMON' ''

n←'C:\temp\aplmon.csv' ⎕NTIE 0
t←↑(',' ⎕R '\n')∘⊂¨('' ⎕R '')n
⎕NUNTIE n

10↑t
t←t[1,1+⍒⍎⍕1↓t[;11];]
10↑t

)ed kt

]open c:\temp\aplmon.csv

)load "C:\Docs\Conference\2012\Tuning Workshop\APLMON\iqx_aplmon"
InitMon 'c:\temp\aplmon_mtb.csv'
Drill 2
